home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / blimpmes.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.4 KB  |  55 lines
  1. 10  DIM A(2000)
  2. 20  DIM C(2000)
  3. 30  DIM B(2000)
  4. 35  CLS:INPUT;" What message (or exit)";L$
  5. 36  IF L$="EXIT" THEN CHAIN "MENU",1000: IF L$="exit" THEN CHAIN "MENU",1000
  6. 37  F$ = "               "+L$+".............."
  7. 40  IF L$ = "" THEN L$ = "-----introducing ... THE-IBM-personal-computer------"
  8. 50  SCREEN 1,0:COLOR 0,0:KEY OFF
  9. 60  CLS
  10. 70  GET (1,1)-(45,30),B
  11. 80  FOR G =5 TO 1 STEP -1
  12. 90  CIRCLE (130,83),80,2,,,G*0.1
  13. 100  IF G/2-INT(G/2)>0 THEN PAINT (130,80),1,2
  14. 110  IF G/2-INT(G/2)<0.01 THEN PAINT (130,80),3,2
  15. 120  NEXT G
  16. 130  LINE (124,120)-(138,126),2,BF
  17. 140  DRAW"c2br74bu10nu66br1nu66nl34u66l34run
  18. 150  PAINT (192,54),3,2
  19. 160  LOCATE 11,14:PRINT"  IBM   "
  20. 170  CIRCLE(100,10),6,3,1,4.1
  21. 180  CIRCLE(107,10),7,3,1,2.1
  22. 190  CIRCLE(104,15),6,3,3,4.3
  23. 200  CIRCLE(114,10),7,3,1,2.1
  24. 210  CIRCLE(114,12),8,3,0,1.1
  25. 220  CIRCLE(114,13),8,3,4.6,0
  26. 230  CIRCLE(107,15),8,3,3.7,5.7
  27. 240  CIRCLE(100,17),4,3,2.7,4.7
  28. 250  CIRCLE(94,13),4,,3,3.7,2.7
  29. 260  PAINT(100,10),3,3
  30. 270  GET (80,1)-(130,22),A
  31. 280  PUT (80,1),B,PSET
  32. 290  LINE (0,190)-(320,190),1
  33. 310  PAINT(22,192),1,1
  34. 315  LINE(0,190)-(27,158),1
  35. 320  LINE(56,191)-(35,151),1
  36. 330  LINE(29,162)-(27,158),1
  37. 340  LINE(29,162)-(35,151),1
  38. 350  PAINT(15,182),1,1
  39. 352  GET (0,191)-(56,150),C
  40. 360  FOR I = 1 TO 380
  41. 370  GOSUB 420
  42. 380  PUT (I,1),B,OR
  43. 385  PUT (I,150),C,PSET
  44. 390  IF I > 28 THEN PUT (I-28,1),A,PSET
  45. 392  IF I > 128 THEN PUT (I-128,21),A,PSET
  46. 400  IF I > 2 THEN LOCATE 11,11:PRINT R$
  47. 410  NEXT I
  48. 420  R$ = MID$(F$,I,14)
  49. 421  IF R$ = ".............." THEN F$ = F$ + L$+"..............":IF LEN(F$)> 210 THEN 35
  50. 430  FOR T = 1 TO 50:NEXT T'TIMER FOR LETTERS
  51. 440  RETURN
  52. 450  PAINT (1,1),3
  53. 460  PUT (80,2),B,PSET
  54. 470  CHAIN "MENU",1000
  55.